(* Cálculo dos dígitos em base b de um número natural  x dado em base 10. *)

b=3; 
x=12345;

Frac[y_]:=y-Floor[y];
a={}; 

While[x>0,
a=Append[a,b Frac[x/b]];
x=Floor[x/b]
]

n=Length[a];
Table[a[[n-i+1]],{i,1,n}]